<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=9"/>
<meta name="generator" content="Doxygen 1.8.18"/>
<meta name="viewport" content="width=device-width, initial-scale=1"/>
<title>Railway Operation Simulator: AboutUnit.cpp Source File</title>
<link href="tabs.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="dynsections.js"></script>
<link href="navtree.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="resize.js"></script>
<script type="text/javascript" src="navtreedata.js"></script>
<script type="text/javascript" src="navtree.js"></script>
<link href="search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="search/searchdata.js"></script>
<script type="text/javascript" src="search/search.js"></script>
<link href="doxygen.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
<div id="titlearea">
<table cellspacing="0" cellpadding="0">
 <tbody>
 <tr style="height: 56px;">
  <td id="projectlogo"><img alt="Logo" src="railway-logo.png"/></td>
  <td id="projectalign" style="padding-left: 0.5em;">
   <div id="projectname">Railway Operation Simulator
   &#160;<span id="projectnumber">v2.23.2</span>
   </div>
   <div id="projectbrief">A railway simulator for Windows</div>
  </td>
 </tr>
 </tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.8.18 -->
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&amp;dn=gpl-2.0.txt GPL-v2 */
var searchBox = new SearchBox("searchBox", "search",false,'Search');
/* @license-end */
</script>
<script type="text/javascript" src="menudata.js"></script>
<script type="text/javascript" src="menu.js"></script>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&amp;dn=gpl-2.0.txt GPL-v2 */
$(function() {
  initMenu('',true,false,'search.php','Search');
  $(document).ready(function() { init_search(); });
});
/* @license-end */</script>
<div id="main-nav"></div>
</div><!-- top -->
<div id="side-nav" class="ui-resizable side-nav-resizable">
  <div id="nav-tree">
    <div id="nav-tree-contents">
      <div id="nav-sync" class="sync"></div>
    </div>
  </div>
  <div id="splitbar" style="-moz-user-select:none;" 
       class="ui-resizable-handle">
  </div>
</div>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&amp;dn=gpl-2.0.txt GPL-v2 */
$(document).ready(function(){initNavTree('_about_unit_8cpp_source.html',''); initResizable(); });
/* @license-end */
</script>
<div id="doc-content">
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
</div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0" 
        name="MSearchResults" id="MSearchResults">
</iframe>
</div>

<div class="header">
  <div class="headertitle">
<div class="title">AboutUnit.cpp</div>  </div>
</div><!--header-->
<div class="contents">
<a href="_about_unit_8cpp.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a name="l00001"></a><span class="lineno">    1</span>&#160;<span class="comment">//AboutUnit.cpp</span></div>
<div class="line"><a name="l00002"></a><span class="lineno">    2</span>&#160;<span class="comment">/*</span></div>
<div class="line"><a name="l00003"></a><span class="lineno">    3</span>&#160;<span class="comment">      BEWARE OF COMMENTS in .cpp files:  they were accurate when written but have</span></div>
<div class="line"><a name="l00004"></a><span class="lineno">    4</span>&#160;<span class="comment">      sometimes been overtaken by changes and not updated</span></div>
<div class="line"><a name="l00005"></a><span class="lineno">    5</span>&#160;<span class="comment">      Comments in .h files are believed to be accurate and up to date</span></div>
<div class="line"><a name="l00006"></a><span class="lineno">    6</span>&#160;<span class="comment"></span> </div>
<div class="line"><a name="l00007"></a><span class="lineno">    7</span>&#160;<span class="comment">      This is a source code file for &quot;railway.exe&quot;, a railway operation</span></div>
<div class="line"><a name="l00008"></a><span class="lineno">    8</span>&#160;<span class="comment">      simulator, written originally in Borland C++ Builder 4 Professional with</span></div>
<div class="line"><a name="l00009"></a><span class="lineno">    9</span>&#160;<span class="comment">      later updates in Embarcadero C++Builder 10.2.</span></div>
<div class="line"><a name="l00010"></a><span class="lineno">   10</span>&#160;<span class="comment">      Copyright (C) 2010 Albert Ball [original development]</span></div>
<div class="line"><a name="l00011"></a><span class="lineno">   11</span>&#160;<span class="comment"></span> </div>
<div class="line"><a name="l00012"></a><span class="lineno">   12</span>&#160;<span class="comment">      This program is free software: you can redistribute it and/or modify</span></div>
<div class="line"><a name="l00013"></a><span class="lineno">   13</span>&#160;<span class="comment">      it under the terms of the GNU General Public License as published by</span></div>
<div class="line"><a name="l00014"></a><span class="lineno">   14</span>&#160;<span class="comment">      the Free Software Foundation, either version 3 of the License, or</span></div>
<div class="line"><a name="l00015"></a><span class="lineno">   15</span>&#160;<span class="comment">      (at your option) any later version.</span></div>
<div class="line"><a name="l00016"></a><span class="lineno">   16</span>&#160;<span class="comment"></span> </div>
<div class="line"><a name="l00017"></a><span class="lineno">   17</span>&#160;<span class="comment">      This program is distributed in the hope that it will be useful,</span></div>
<div class="line"><a name="l00018"></a><span class="lineno">   18</span>&#160;<span class="comment">      but WITHOUT ANY WARRANTY; without even the implied warranty of</span></div>
<div class="line"><a name="l00019"></a><span class="lineno">   19</span>&#160;<span class="comment">      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the</span></div>
<div class="line"><a name="l00020"></a><span class="lineno">   20</span>&#160;<span class="comment">      GNU General Public License for more details.</span></div>
<div class="line"><a name="l00021"></a><span class="lineno">   21</span>&#160;<span class="comment"></span> </div>
<div class="line"><a name="l00022"></a><span class="lineno">   22</span>&#160;<span class="comment">      You should have received a copy of the GNU General Public License</span></div>
<div class="line"><a name="l00023"></a><span class="lineno">   23</span>&#160;<span class="comment">      along with this program.  If not, see &lt;http://www.gnu.org/licenses/&gt;.</span></div>
<div class="line"><a name="l00024"></a><span class="lineno">   24</span>&#160;<span class="comment">*/</span></div>
<div class="line"><a name="l00025"></a><span class="lineno">   25</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00026"></a><span class="lineno">   26</span>&#160;<span class="preprocessor">#include &lt;Classes.hpp&gt;</span></div>
<div class="line"><a name="l00027"></a><span class="lineno">   27</span>&#160;<span class="preprocessor">#include &lt;Controls.hpp&gt;</span></div>
<div class="line"><a name="l00028"></a><span class="lineno">   28</span>&#160;<span class="preprocessor">#include &lt;StdCtrls.hpp&gt;</span></div>
<div class="line"><a name="l00029"></a><span class="lineno">   29</span>&#160;<span class="preprocessor">#include &lt;Forms.hpp&gt;</span></div>
<div class="line"><a name="l00030"></a><span class="lineno">   30</span>&#160;<span class="preprocessor">#include &lt;Buttons.hpp&gt;</span></div>
<div class="line"><a name="l00031"></a><span class="lineno">   31</span>&#160;<span class="preprocessor">#include &lt;ExtCtrls.hpp&gt;</span></div>
<div class="line"><a name="l00032"></a><span class="lineno">   32</span>&#160;<span class="preprocessor">#include &lt;Menus.hpp&gt;</span></div>
<div class="line"><a name="l00033"></a><span class="lineno">   33</span>&#160;<span class="preprocessor">#include &lt;Dialogs.hpp&gt;</span></div>
<div class="line"><a name="l00034"></a><span class="lineno">   34</span>&#160;<span class="preprocessor">#include &lt;Graphics.hpp&gt;</span></div>
<div class="line"><a name="l00035"></a><span class="lineno">   35</span>&#160;<span class="preprocessor">#include &lt;ComCtrls.hpp&gt;</span></div>
<div class="line"><a name="l00036"></a><span class="lineno">   36</span>&#160;<span class="preprocessor">#include &lt;fstream&gt;</span></div>
<div class="line"><a name="l00037"></a><span class="lineno">   37</span>&#160;<span class="preprocessor">#include &lt;vector&gt;</span></div>
<div class="line"><a name="l00038"></a><span class="lineno">   38</span>&#160;<span class="preprocessor">#include &lt;vcl.h&gt;</span></div>
<div class="line"><a name="l00039"></a><span class="lineno">   39</span>&#160; </div>
<div class="line"><a name="l00040"></a><span class="lineno">   40</span>&#160;<span class="preprocessor">#pragma hdrstop</span></div>
<div class="line"><a name="l00041"></a><span class="lineno">   41</span>&#160; </div>
<div class="line"><a name="l00042"></a><span class="lineno">   42</span>&#160;<span class="preprocessor">#include &quot;<a class="code" href="_about_unit_8h.html">AboutUnit.h</a>&quot;</span></div>
<div class="line"><a name="l00043"></a><span class="lineno">   43</span>&#160;<span class="preprocessor">#include &quot;<a class="code" href="_interface_unit_8h.html">InterfaceUnit.h</a>&quot;</span></div>
<div class="line"><a name="l00044"></a><span class="lineno">   44</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00045"></a><span class="lineno">   45</span>&#160;<span class="preprocessor">#pragma package(smart_init)</span></div>
<div class="line"><a name="l00046"></a><span class="lineno">   46</span>&#160;<span class="preprocessor">#pragma resource &quot;*.dfm&quot;</span></div>
<div class="line"><a name="l00047"></a><span class="lineno"><a class="line" href="_about_unit_8h.html#a4bbd3035b5cb04cba2e9faeae2434d5c">   47</a></span>&#160;<a class="code" href="class_t_about_form.html">TAboutForm</a> *<a class="code" href="_about_unit_8cpp.html#afeda18bab07d814e4497b7fe8c70a234">AboutForm</a>;</div>
<div class="line"><a name="l00048"></a><span class="lineno">   48</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00049"></a><span class="lineno"><a class="line" href="class_t_about_form.html#a5f857ee166c84e44aa329cbf5e2b9400">   49</a></span>&#160;__fastcall <a class="code" href="class_t_about_form.html#a5f857ee166c84e44aa329cbf5e2b9400">TAboutForm::TAboutForm</a>(TComponent* Owner) : TForm(Owner)</div>
<div class="line"><a name="l00050"></a><span class="lineno">   50</span>&#160;{</div>
<div class="line"><a name="l00051"></a><span class="lineno">   51</span>&#160;}</div>
<div class="line"><a name="l00052"></a><span class="lineno">   52</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00053"></a><span class="lineno">   53</span>&#160; </div>
<div class="line"><a name="l00054"></a><span class="lineno"><a class="line" href="class_t_about_form.html#ad2cb3d318c91018ed8986c8315ccd52b">   54</a></span>&#160;<span class="keywordtype">void</span> __fastcall <a class="code" href="class_t_about_form.html#ad2cb3d318c91018ed8986c8315ccd52b">TAboutForm::FormCreate</a>(TObject *Sender)</div>
<div class="line"><a name="l00055"></a><span class="lineno">   55</span>&#160;{</div>
<div class="line"><a name="l00056"></a><span class="lineno">   56</span>&#160;    <a class="code" href="_about_unit_8cpp.html#afeda18bab07d814e4497b7fe8c70a234">AboutForm</a>-&gt;<a class="code" href="class_t_about_form.html#aae86823c5d44708f264e2c1f8cd52af1">SetAboutCaption</a>();</div>
<div class="line"><a name="l00057"></a><span class="lineno">   57</span>&#160;    <a class="code" href="_about_unit_8cpp.html#afeda18bab07d814e4497b7fe8c70a234">AboutForm</a>-&gt;Hide();</div>
<div class="line"><a name="l00058"></a><span class="lineno">   58</span>&#160;}</div>
<div class="line"><a name="l00059"></a><span class="lineno">   59</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00060"></a><span class="lineno"><a class="line" href="class_t_about_form.html#a8e868f7264a80fda52fc8c0e8290eb3f">   60</a></span>&#160;<span class="keywordtype">void</span> __fastcall <a class="code" href="class_t_about_form.html#a8e868f7264a80fda52fc8c0e8290eb3f">TAboutForm::AboutFormButtonClick</a>(TObject *Sender)</div>
<div class="line"><a name="l00061"></a><span class="lineno">   61</span>&#160;{</div>
<div class="line"><a name="l00062"></a><span class="lineno">   62</span>&#160;    <a class="code" href="_about_unit_8cpp.html#afeda18bab07d814e4497b7fe8c70a234">AboutForm</a>-&gt;Close();</div>
<div class="line"><a name="l00063"></a><span class="lineno">   63</span>&#160;}</div>
<div class="line"><a name="l00064"></a><span class="lineno">   64</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00065"></a><span class="lineno"><a class="line" href="class_t_about_form.html#acddaba886282fa0cb6aa0ee77520fb05">   65</a></span>&#160;<span class="keywordtype">void</span> __fastcall <a class="code" href="class_t_about_form.html#acddaba886282fa0cb6aa0ee77520fb05">TAboutForm::FormClose</a>(TObject *Sender,</div>
<div class="line"><a name="l00066"></a><span class="lineno">   66</span>&#160;                                      TCloseAction &amp;Action)</div>
<div class="line"><a name="l00067"></a><span class="lineno">   67</span>&#160;{</div>
<div class="line"><a name="l00068"></a><span class="lineno">   68</span>&#160;    <span class="keywordflow">if</span>(<a class="code" href="_interface_unit_8cpp.html#ab46f90e63fff00ad962f3392fd462332">Interface</a>-&gt;<a class="code" href="class_t_interface.html#ac1799c95feacd89003c5609f39453557">Level1Mode</a> == <a class="code" href="class_t_interface.html#afdd8ad9ea5529b9193c4b4c5ac683bc5a9282e651b6ae13b95ab0952ba9efec38">TInterface::OperMode</a>)</div>
<div class="line"><a name="l00069"></a><span class="lineno">   69</span>&#160;    {</div>
<div class="line"><a name="l00070"></a><span class="lineno">   70</span>&#160;        <a class="code" href="_interface_unit_8cpp.html#ab46f90e63fff00ad962f3392fd462332">Interface</a>-&gt;<a class="code" href="class_t_interface.html#a86ed4cb82f825abe93c1df870d2bf4d2">MasterClock</a>-&gt;Enabled = <span class="keyword">true</span>;</div>
<div class="line"><a name="l00071"></a><span class="lineno">   71</span>&#160;    }</div>
<div class="line"><a name="l00072"></a><span class="lineno">   72</span>&#160;}</div>
<div class="line"><a name="l00073"></a><span class="lineno">   73</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00074"></a><span class="lineno"><a class="line" href="class_t_about_form.html#aae86823c5d44708f264e2c1f8cd52af1">   74</a></span>&#160;<span class="keywordtype">void</span> __fastcall <a class="code" href="class_t_about_form.html#aae86823c5d44708f264e2c1f8cd52af1">TAboutForm::SetAboutCaption</a>()</div>
<div class="line"><a name="l00075"></a><span class="lineno">   75</span>&#160;{</div>
<div class="line"><a name="l00076"></a><span class="lineno">   76</span>&#160;    DWORD VersionHandle;</div>
<div class="line"><a name="l00077"></a><span class="lineno">   77</span>&#160;    DWORD VersionSize;</div>
<div class="line"><a name="l00078"></a><span class="lineno">   78</span>&#160;    LPBYTE pBuffer;</div>
<div class="line"><a name="l00079"></a><span class="lineno">   79</span>&#160;    UnicodeString strVersion = L<span class="stringliteral">&quot;N/A&quot;</span>;</div>
<div class="line"><a name="l00080"></a><span class="lineno">   80</span>&#160;    UnicodeString NL         = <span class="charliteral">&#39;\n&#39;</span>;</div>
<div class="line"><a name="l00081"></a><span class="lineno">   81</span>&#160; </div>
<div class="line"><a name="l00082"></a><span class="lineno">   82</span>&#160;    VersionSize = GetFileVersionInfoSizeW(Application-&gt;ExeName.c_str(), &amp;VersionHandle);</div>
<div class="line"><a name="l00083"></a><span class="lineno">   83</span>&#160;    <span class="keywordflow">if</span>(VersionSize)</div>
<div class="line"><a name="l00084"></a><span class="lineno">   84</span>&#160;    {</div>
<div class="line"><a name="l00085"></a><span class="lineno">   85</span>&#160;        pBuffer = <span class="keyword">new</span> BYTE[VersionSize];</div>
<div class="line"><a name="l00086"></a><span class="lineno">   86</span>&#160; </div>
<div class="line"><a name="l00087"></a><span class="lineno">   87</span>&#160;        <span class="keywordflow">if</span>(GetFileVersionInfoW(Application-&gt;ExeName.c_str(), VersionHandle, VersionSize, pBuffer))</div>
<div class="line"><a name="l00088"></a><span class="lineno">   88</span>&#160;        {</div>
<div class="line"><a name="l00089"></a><span class="lineno">   89</span>&#160;            VS_FIXEDFILEINFO *fi;</div>
<div class="line"><a name="l00090"></a><span class="lineno">   90</span>&#160;            UINT buflen;</div>
<div class="line"><a name="l00091"></a><span class="lineno">   91</span>&#160; </div>
<div class="line"><a name="l00092"></a><span class="lineno">   92</span>&#160;            <span class="comment">//uncomment strVersion and HIWORD alternates below when future CI implemented: sas@2.1.0</span></div>
<div class="line"><a name="l00093"></a><span class="lineno">   93</span>&#160;            <span class="keywordflow">if</span>(VerQueryValueW(pBuffer, L<span class="stringliteral">&quot;\\&quot;</span>, (<span class="keywordtype">void</span>** )&amp;fi, &amp;buflen))</div>
<div class="line"><a name="l00094"></a><span class="lineno">   94</span>&#160;            {</div>
<div class="line"><a name="l00095"></a><span class="lineno">   95</span>&#160;                <span class="comment">//strVersion.sprintf(L&quot;%d.%d.%d (Build %d)&quot;,</span></div>
<div class="line"><a name="l00096"></a><span class="lineno">   96</span>&#160;                strVersion.sprintf(L<span class="stringliteral">&quot;%d.%d.%d&quot;</span>,</div>
<div class="line"><a name="l00097"></a><span class="lineno">   97</span>&#160;                                   HIWORD(fi-&gt;dwFileVersionMS), LOWORD(fi-&gt;dwFileVersionMS),</div>
<div class="line"><a name="l00098"></a><span class="lineno">   98</span>&#160;                                   HIWORD(fi-&gt;dwFileVersionLS)</div>
<div class="line"><a name="l00099"></a><span class="lineno">   99</span>&#160;                                   <span class="comment">//HIWORD(fi-&gt;dwFileVersionLS), LOWORD(fi-&gt;dwFileVersionLS)</span></div>
<div class="line"><a name="l00100"></a><span class="lineno">  100</span>&#160;                                   );</div>
<div class="line"><a name="l00101"></a><span class="lineno">  101</span>&#160;            }</div>
<div class="line"><a name="l00102"></a><span class="lineno">  102</span>&#160;        }</div>
<div class="line"><a name="l00103"></a><span class="lineno">  103</span>&#160;        <span class="keyword">delete</span>[] pBuffer;</div>
<div class="line"><a name="l00104"></a><span class="lineno">  104</span>&#160;    }</div>
<div class="line"><a name="l00105"></a><span class="lineno">  105</span>&#160; </div>
<div class="line"><a name="l00106"></a><span class="lineno">  106</span>&#160;    <a class="code" href="class_t_about_form.html#aa188b96e0810fb8944b8e7fd7a2deea4">AboutLabelCaption</a>-&gt;Caption = L<span class="stringliteral">&quot;All the tools to design, build and operate your own railway&quot;</span> + NL + NL +</div>
<div class="line"><a name="l00107"></a><span class="lineno">  107</span>&#160;        L<span class="stringliteral">&quot;Release: &quot;</span> + <a class="code" href="_interface_unit_8cpp.html#ab46f90e63fff00ad962f3392fd462332">Interface</a>-&gt;<a class="code" href="class_t_interface.html#a83d8b6f4fbf587f117e4e166259190d4">ProgramVersion</a> + NL + NL +</div>
<div class="line"><a name="l00108"></a><span class="lineno">  108</span>&#160;        L<span class="stringliteral">&quot;Copyright (c) 2010 - 2025 Albert Ball\nwith contributions from Stephen A Smith and Kristian Zarębski&quot;</span>;</div>
<div class="line"><a name="l00109"></a><span class="lineno">  109</span>&#160;}</div>
<div class="line"><a name="l00110"></a><span class="lineno">  110</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00111"></a><span class="lineno"><a class="line" href="class_t_about_form.html#a6c7cc55bc67691c15901fdeac8bec954">  111</a></span>&#160;<span class="keywordtype">void</span> __fastcall <a class="code" href="class_t_about_form.html#a6c7cc55bc67691c15901fdeac8bec954">TAboutForm::WebsiteLinkLabelLinkClick</a>(TObject *Sender, <span class="keyword">const</span> UnicodeString Link,</div>
<div class="line"><a name="l00112"></a><span class="lineno">  112</span>&#160;                                                      TSysLinkType LinkType)</div>
<div class="line"><a name="l00113"></a><span class="lineno">  113</span>&#160;{</div>
<div class="line"><a name="l00114"></a><span class="lineno">  114</span>&#160;    <span class="keywordflow">if</span>(LinkType == sltURL)</div>
<div class="line"><a name="l00115"></a><span class="lineno">  115</span>&#160;    {</div>
<div class="line"><a name="l00116"></a><span class="lineno">  116</span>&#160;        ::ShellExecute(Handle, NULL, Link.c_str(), NULL, NULL, SW_SHOWNORMAL);</div>
<div class="line"><a name="l00117"></a><span class="lineno">  117</span>&#160;    }</div>
<div class="line"><a name="l00118"></a><span class="lineno">  118</span>&#160;}</div>
<div class="line"><a name="l00119"></a><span class="lineno">  119</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00120"></a><span class="lineno">  120</span>&#160; </div>
<div class="line"><a name="l00121"></a><span class="lineno"><a class="line" href="class_t_about_form.html#a8699bacd9787f153b92c579a4ea60871">  121</a></span>&#160;<span class="keywordtype">void</span> __fastcall <a class="code" href="class_t_about_form.html#a8699bacd9787f153b92c579a4ea60871">TAboutForm::Attribution1LinkLabelLinkClick</a>(TObject *Sender, <span class="keyword">const</span> UnicodeString Link,</div>
<div class="line"><a name="l00122"></a><span class="lineno">  122</span>&#160;                                                           TSysLinkType LinkType)</div>
<div class="line"><a name="l00123"></a><span class="lineno">  123</span>&#160;{</div>
<div class="line"><a name="l00124"></a><span class="lineno">  124</span>&#160;    <span class="keywordflow">if</span>(LinkType == sltURL)</div>
<div class="line"><a name="l00125"></a><span class="lineno">  125</span>&#160;    {</div>
<div class="line"><a name="l00126"></a><span class="lineno">  126</span>&#160;        ::ShellExecute(Handle, NULL, Link.c_str(), NULL, NULL, SW_SHOWNORMAL);</div>
<div class="line"><a name="l00127"></a><span class="lineno">  127</span>&#160;    }</div>
<div class="line"><a name="l00128"></a><span class="lineno">  128</span>&#160;}</div>
<div class="line"><a name="l00129"></a><span class="lineno">  129</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00130"></a><span class="lineno">  130</span>&#160; </div>
<div class="line"><a name="l00131"></a><span class="lineno"><a class="line" href="class_t_about_form.html#a16a26ef9958f3cdb5a0850f70d274e21">  131</a></span>&#160;<span class="keywordtype">void</span> __fastcall <a class="code" href="class_t_about_form.html#a16a26ef9958f3cdb5a0850f70d274e21">TAboutForm::Attribution2LinkLabelLinkClick</a>(TObject *Sender, <span class="keyword">const</span> UnicodeString Link,</div>
<div class="line"><a name="l00132"></a><span class="lineno">  132</span>&#160;                                                           TSysLinkType LinkType)</div>
<div class="line"><a name="l00133"></a><span class="lineno">  133</span>&#160;{</div>
<div class="line"><a name="l00134"></a><span class="lineno">  134</span>&#160;    <span class="keywordflow">if</span>(LinkType == sltURL)</div>
<div class="line"><a name="l00135"></a><span class="lineno">  135</span>&#160;    {</div>
<div class="line"><a name="l00136"></a><span class="lineno">  136</span>&#160;        ::ShellExecute(Handle, NULL, Link.c_str(), NULL, NULL, SW_SHOWNORMAL);</div>
<div class="line"><a name="l00137"></a><span class="lineno">  137</span>&#160;    }</div>
<div class="line"><a name="l00138"></a><span class="lineno">  138</span>&#160;}</div>
<div class="line"><a name="l00139"></a><span class="lineno">  139</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00140"></a><span class="lineno">  140</span>&#160; </div>
<div class="line"><a name="l00141"></a><span class="lineno"><a class="line" href="class_t_about_form.html#a7ad768d190a04754d104afbed7b69531">  141</a></span>&#160;<span class="keywordtype">void</span> __fastcall <a class="code" href="class_t_about_form.html#a7ad768d190a04754d104afbed7b69531">TAboutForm::Attribution3LinkLabelLinkClick</a>(TObject *Sender, <span class="keyword">const</span> UnicodeString Link,</div>
<div class="line"><a name="l00142"></a><span class="lineno">  142</span>&#160;          TSysLinkType LinkType)</div>
<div class="line"><a name="l00143"></a><span class="lineno">  143</span>&#160;{</div>
<div class="line"><a name="l00144"></a><span class="lineno">  144</span>&#160;    <span class="keywordflow">if</span>(LinkType == sltURL)</div>
<div class="line"><a name="l00145"></a><span class="lineno">  145</span>&#160;    {</div>
<div class="line"><a name="l00146"></a><span class="lineno">  146</span>&#160;        ::ShellExecute(Handle, NULL, Link.c_str(), NULL, NULL, SW_SHOWNORMAL);</div>
<div class="line"><a name="l00147"></a><span class="lineno">  147</span>&#160;    }</div>
<div class="line"><a name="l00148"></a><span class="lineno">  148</span>&#160;}</div>
<div class="line"><a name="l00149"></a><span class="lineno">  149</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00150"></a><span class="lineno">  150</span>&#160; </div>
<div class="line"><a name="l00151"></a><span class="lineno"><a class="line" href="class_t_about_form.html#a4a2f8ec0325ad09c99f4fd881e5e228d">  151</a></span>&#160;<span class="keywordtype">void</span> __fastcall <a class="code" href="class_t_about_form.html#a4a2f8ec0325ad09c99f4fd881e5e228d">TAboutForm::AttributionLinkLabel4LinkClick</a>(TObject *Sender, <span class="keyword">const</span> UnicodeString Link,</div>
<div class="line"><a name="l00152"></a><span class="lineno">  152</span>&#160;          TSysLinkType LinkType)</div>
<div class="line"><a name="l00153"></a><span class="lineno">  153</span>&#160;{</div>
<div class="line"><a name="l00154"></a><span class="lineno">  154</span>&#160;    <span class="keywordflow">if</span>(LinkType == sltURL)</div>
<div class="line"><a name="l00155"></a><span class="lineno">  155</span>&#160;    {</div>
<div class="line"><a name="l00156"></a><span class="lineno">  156</span>&#160;        ::ShellExecute(Handle, NULL, Link.c_str(), NULL, NULL, SW_SHOWNORMAL);</div>
<div class="line"><a name="l00157"></a><span class="lineno">  157</span>&#160;    }</div>
<div class="line"><a name="l00158"></a><span class="lineno">  158</span>&#160;}</div>
<div class="line"><a name="l00159"></a><span class="lineno">  159</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00160"></a><span class="lineno">  160</span>&#160; </div>
<div class="line"><a name="l00161"></a><span class="lineno"><a class="line" href="class_t_about_form.html#a56e844bc7dd524d48c13cc1d7b5d0aeb">  161</a></span>&#160;<span class="keywordtype">void</span> __fastcall <a class="code" href="class_t_about_form.html#a56e844bc7dd524d48c13cc1d7b5d0aeb">TAboutForm::LinkLabel1LinkClick</a>(TObject *Sender, <span class="keyword">const</span> UnicodeString Link,</div>
<div class="line"><a name="l00162"></a><span class="lineno">  162</span>&#160;          TSysLinkType LinkType)</div>
<div class="line"><a name="l00163"></a><span class="lineno">  163</span>&#160;{</div>
<div class="line"><a name="l00164"></a><span class="lineno">  164</span>&#160;    <span class="keywordflow">if</span>(LinkType == sltURL)</div>
<div class="line"><a name="l00165"></a><span class="lineno">  165</span>&#160;    {</div>
<div class="line"><a name="l00166"></a><span class="lineno">  166</span>&#160;        ::ShellExecute(Handle, NULL, Link.c_str(), NULL, NULL, SW_SHOWNORMAL);</div>
<div class="line"><a name="l00167"></a><span class="lineno">  167</span>&#160;    }</div>
<div class="line"><a name="l00168"></a><span class="lineno">  168</span>&#160;}</div>
<div class="line"><a name="l00169"></a><span class="lineno">  169</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00170"></a><span class="lineno">  170</span>&#160; </div>
<div class="line"><a name="l00171"></a><span class="lineno">  171</span>&#160; </div>
<div class="line"><a name="l00172"></a><span class="lineno">  172</span>&#160; </div>
<div class="line"><a name="l00173"></a><span class="lineno">  173</span>&#160; </div>
</div><!-- fragment --></div><!-- contents -->
</div><!-- doc-content -->
<div class="ttc" id="aclass_t_interface_html_afdd8ad9ea5529b9193c4b4c5ac683bc5a9282e651b6ae13b95ab0952ba9efec38"><div class="ttname"><a href="class_t_interface.html#afdd8ad9ea5529b9193c4b4c5ac683bc5a9282e651b6ae13b95ab0952ba9efec38">TInterface::OperMode</a></div><div class="ttdeci">@ OperMode</div><div class="ttdef"><b>Definition:</b> <a href="_interface_unit_8h_source.html#l01016">InterfaceUnit.h:1016</a></div></div>
<div class="ttc" id="aclass_t_about_form_html_a16a26ef9958f3cdb5a0850f70d274e21"><div class="ttname"><a href="class_t_about_form.html#a16a26ef9958f3cdb5a0850f70d274e21">TAboutForm::Attribution2LinkLabelLinkClick</a></div><div class="ttdeci">void __fastcall Attribution2LinkLabelLinkClick(TObject *Sender, const UnicodeString Link, TSysLinkType LinkType)</div><div class="ttdoc">Send the attribution statement's link to your default browser.</div><div class="ttdef"><b>Definition:</b> <a href="_about_unit_8cpp_source.html#l00131">AboutUnit.cpp:131</a></div></div>
<div class="ttc" id="a_about_unit_8h_html"><div class="ttname"><a href="_about_unit_8h.html">AboutUnit.h</a></div></div>
<div class="ttc" id="a_interface_unit_8h_html"><div class="ttname"><a href="_interface_unit_8h.html">InterfaceUnit.h</a></div></div>
<div class="ttc" id="aclass_t_about_form_html_aae86823c5d44708f264e2c1f8cd52af1"><div class="ttname"><a href="class_t_about_form.html#aae86823c5d44708f264e2c1f8cd52af1">TAboutForm::SetAboutCaption</a></div><div class="ttdeci">void __fastcall SetAboutCaption()</div><div class="ttdoc">Sets version details from the project options 'Version Info' values.</div><div class="ttdef"><b>Definition:</b> <a href="_about_unit_8cpp_source.html#l00074">AboutUnit.cpp:74</a></div></div>
<div class="ttc" id="aclass_t_about_form_html"><div class="ttname"><a href="class_t_about_form.html">TAboutForm</a></div><div class="ttdoc">The small 'About' box selected from the Help menu.</div><div class="ttdef"><b>Definition:</b> <a href="_about_unit_8h_source.html#l00037">AboutUnit.h:38</a></div></div>
<div class="ttc" id="aclass_t_about_form_html_ad2cb3d318c91018ed8986c8315ccd52b"><div class="ttname"><a href="class_t_about_form.html#ad2cb3d318c91018ed8986c8315ccd52b">TAboutForm::FormCreate</a></div><div class="ttdeci">void __fastcall FormCreate(TObject *Sender)</div><div class="ttdoc">Called when the form is first created (by WinMain). Sets the version info, then hides the form.</div><div class="ttdef"><b>Definition:</b> <a href="_about_unit_8cpp_source.html#l00054">AboutUnit.cpp:54</a></div></div>
<div class="ttc" id="aclass_t_about_form_html_aa188b96e0810fb8944b8e7fd7a2deea4"><div class="ttname"><a href="class_t_about_form.html#aa188b96e0810fb8944b8e7fd7a2deea4">TAboutForm::AboutLabelCaption</a></div><div class="ttdeci">TLabel * AboutLabelCaption</div><div class="ttdoc">Version info displayed here.</div><div class="ttdef"><b>Definition:</b> <a href="_about_unit_8h_source.html#l00042">AboutUnit.h:42</a></div></div>
<div class="ttc" id="aclass_t_interface_html_a86ed4cb82f825abe93c1df870d2bf4d2"><div class="ttname"><a href="class_t_interface.html#a86ed4cb82f825abe93c1df870d2bf4d2">TInterface::MasterClock</a></div><div class="ttdeci">TTimer * MasterClock</div><div class="ttdoc">the program clock (not the timetable clock)</div><div class="ttdef"><b>Definition:</b> <a href="_interface_unit_8h_source.html#l00531">InterfaceUnit.h:531</a></div></div>
<div class="ttc" id="aclass_t_interface_html_a83d8b6f4fbf587f117e4e166259190d4"><div class="ttname"><a href="class_t_interface.html#a83d8b6f4fbf587f117e4e166259190d4">TInterface::ProgramVersion</a></div><div class="ttdeci">UnicodeString ProgramVersion</div><div class="ttdef"><b>Definition:</b> <a href="_interface_unit_8h_source.html#l01019">InterfaceUnit.h:1019</a></div></div>
<div class="ttc" id="a_interface_unit_8cpp_html_ab46f90e63fff00ad962f3392fd462332"><div class="ttname"><a href="_interface_unit_8cpp.html#ab46f90e63fff00ad962f3392fd462332">Interface</a></div><div class="ttdeci">TInterface * Interface</div><div class="ttdef"><b>Definition:</b> <a href="_interface_unit_8cpp_source.html#l00071">InterfaceUnit.cpp:71</a></div></div>
<div class="ttc" id="aclass_t_interface_html_ac1799c95feacd89003c5609f39453557"><div class="ttname"><a href="class_t_interface.html#ac1799c95feacd89003c5609f39453557">TInterface::Level1Mode</a></div><div class="ttdeci">enum TInterface::TLevel1Mode Level1Mode</div></div>
<div class="ttc" id="aclass_t_about_form_html_a8699bacd9787f153b92c579a4ea60871"><div class="ttname"><a href="class_t_about_form.html#a8699bacd9787f153b92c579a4ea60871">TAboutForm::Attribution1LinkLabelLinkClick</a></div><div class="ttdeci">void __fastcall Attribution1LinkLabelLinkClick(TObject *Sender, const UnicodeString Link, TSysLinkType LinkType)</div><div class="ttdoc">Send the attribution statement's link to your default browser.</div><div class="ttdef"><b>Definition:</b> <a href="_about_unit_8cpp_source.html#l00121">AboutUnit.cpp:121</a></div></div>
<div class="ttc" id="aclass_t_about_form_html_a6c7cc55bc67691c15901fdeac8bec954"><div class="ttname"><a href="class_t_about_form.html#a6c7cc55bc67691c15901fdeac8bec954">TAboutForm::WebsiteLinkLabelLinkClick</a></div><div class="ttdeci">void __fastcall WebsiteLinkLabelLinkClick(TObject *Sender, const UnicodeString Link, TSysLinkType LinkType)</div><div class="ttdoc">Sends the link to your default browser.</div><div class="ttdef"><b>Definition:</b> <a href="_about_unit_8cpp_source.html#l00111">AboutUnit.cpp:111</a></div></div>
<div class="ttc" id="aclass_t_about_form_html_a56e844bc7dd524d48c13cc1d7b5d0aeb"><div class="ttname"><a href="class_t_about_form.html#a56e844bc7dd524d48c13cc1d7b5d0aeb">TAboutForm::LinkLabel1LinkClick</a></div><div class="ttdeci">void __fastcall LinkLabel1LinkClick(TObject *Sender, const UnicodeString Link, TSysLinkType LinkType)</div><div class="ttdef"><b>Definition:</b> <a href="_about_unit_8cpp_source.html#l00161">AboutUnit.cpp:161</a></div></div>
<div class="ttc" id="aclass_t_about_form_html_a5f857ee166c84e44aa329cbf5e2b9400"><div class="ttname"><a href="class_t_about_form.html#a5f857ee166c84e44aa329cbf5e2b9400">TAboutForm::TAboutForm</a></div><div class="ttdeci">__fastcall TAboutForm(TComponent *Owner)</div><div class="ttdoc">The form constructor.</div><div class="ttdef"><b>Definition:</b> <a href="_about_unit_8cpp_source.html#l00049">AboutUnit.cpp:49</a></div></div>
<div class="ttc" id="aclass_t_about_form_html_acddaba886282fa0cb6aa0ee77520fb05"><div class="ttname"><a href="class_t_about_form.html#acddaba886282fa0cb6aa0ee77520fb05">TAboutForm::FormClose</a></div><div class="ttdeci">void __fastcall FormClose(TObject *Sender, TCloseAction &amp;Action)</div><div class="ttdoc">Called when the About form is closed. Restarts MasterClock if Level1Mode is OperMode.</div><div class="ttdef"><b>Definition:</b> <a href="_about_unit_8cpp_source.html#l00065">AboutUnit.cpp:65</a></div></div>
<div class="ttc" id="aclass_t_about_form_html_a8e868f7264a80fda52fc8c0e8290eb3f"><div class="ttname"><a href="class_t_about_form.html#a8e868f7264a80fda52fc8c0e8290eb3f">TAboutForm::AboutFormButtonClick</a></div><div class="ttdeci">void __fastcall AboutFormButtonClick(TObject *Sender)</div><div class="ttdoc">Opens the About form.</div><div class="ttdef"><b>Definition:</b> <a href="_about_unit_8cpp_source.html#l00060">AboutUnit.cpp:60</a></div></div>
<div class="ttc" id="aclass_t_about_form_html_a7ad768d190a04754d104afbed7b69531"><div class="ttname"><a href="class_t_about_form.html#a7ad768d190a04754d104afbed7b69531">TAboutForm::Attribution3LinkLabelLinkClick</a></div><div class="ttdeci">void __fastcall Attribution3LinkLabelLinkClick(TObject *Sender, const UnicodeString Link, TSysLinkType LinkType)</div><div class="ttdoc">Send the attribution statement's link to your default browser.</div><div class="ttdef"><b>Definition:</b> <a href="_about_unit_8cpp_source.html#l00141">AboutUnit.cpp:141</a></div></div>
<div class="ttc" id="aclass_t_about_form_html_a4a2f8ec0325ad09c99f4fd881e5e228d"><div class="ttname"><a href="class_t_about_form.html#a4a2f8ec0325ad09c99f4fd881e5e228d">TAboutForm::AttributionLinkLabel4LinkClick</a></div><div class="ttdeci">void __fastcall AttributionLinkLabel4LinkClick(TObject *Sender, const UnicodeString Link, TSysLinkType LinkType)</div><div class="ttdoc">Send the attribution statement's link to your default browser.</div><div class="ttdef"><b>Definition:</b> <a href="_about_unit_8cpp_source.html#l00151">AboutUnit.cpp:151</a></div></div>
<div class="ttc" id="a_about_unit_8cpp_html_afeda18bab07d814e4497b7fe8c70a234"><div class="ttname"><a href="_about_unit_8cpp.html#afeda18bab07d814e4497b7fe8c70a234">AboutForm</a></div><div class="ttdeci">TAboutForm * AboutForm</div><div class="ttdef"><b>Definition:</b> <a href="_about_unit_8cpp_source.html#l00047">AboutUnit.cpp:47</a></div></div>
<!-- start footer part -->
<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
  <ul>
    <li class="navelem"><a class="el" href="_about_unit_8cpp.html">AboutUnit.cpp</a></li>
    <li class="footer">Generated by
    <a href="http://www.doxygen.org/index.html">
    <img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.8.18 </li>
  </ul>
</div>
</body>
</html>
